!===============================================================
!
! 15**n minimi locali (LEVY 15)
!
!===============================================================
!			VARIABLE BOUNDS
!===============================================================
!       -5.D0                5.D0          Limits of variable i

SUBROUTINE LEVY15(X,N,F)

      IMPLICIT NONE

      INTEGER          :: N
      DOUBLE PRECISION :: X(N), F

      DOUBLE PRECISION, PARAMETER :: PI = 3.1415923

      DOUBLE PRECISION :: F1
      INTEGER          :: I

      F1 = 0.0D0

      DO I=1,N-1
         F1 = F1 + ((((X(I)-1.D0)**2)*(1.D0+10.D0*(DSIN(3.0D0*PI*(X(I+1)))**2))))
      END DO

      F = (0.1D0*((DSIN(3.0D0*PI*X(1)))**2+F1))+ &
          (0.1D0*((X(N)-1.D0)**2*(1.0D0+DSIN(2.0D0*PI*X(N))**2)))

      RETURN

END
